home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #27 (Dec 87) / Tear off Menus example / ls Pascal version / TearMenuRes.derez < prev    next >
Text File  |  1987-11-19  |  7KB  |  358 lines
  1. resource 'BNDL' (128) {
  2.     'TEAR',
  3.     0,
  4.     {    /* array TypeArray: 2 elements */
  5.         /* [1] */
  6.         'ICN#',
  7.         {    /* array IDArray: 1 elements */
  8.             /* [1] */
  9.             0, 128
  10.         },
  11.         /* [2] */
  12.         'FREF',
  13.         {    /* array IDArray: 1 elements */
  14.             /* [1] */
  15.             0, 128
  16.         }
  17.     }
  18. };
  19.  
  20. resource 'DITL' (3000) {
  21.     {    /* array DITLarray: 3 elements */
  22.         /* [1] */
  23.         {155, 142, 180, 205},
  24.         Button {
  25.             enabled,
  26.             "Okay"
  27.         },
  28.         /* [2] */
  29.         {6, 5, 112, 361},
  30.         StaticText {
  31.             disabled,
  32.             "                                 - Tear "
  33.             "Menu -\n\nWritten by Darryl Lovato of TML "
  34.             "Systems, Inc.\n\nThis program shows how to"
  35.             " make a window tear off of a menu.  Idea"
  36.             " from Hypercard by Bill Atkinson.\n"
  37.         },
  38.         /* [3] */
  39.         {115, 5, 149, 361},
  40.         StaticText {
  41.             enabled,
  42.             "Complete Pascal source code for this pro"
  43.             "gram is available from MacTutor Magazine"
  44.             "."
  45.         }
  46.     }
  47. };
  48.  
  49. resource 'DLOG' (3000, preload) {
  50.     {58, 74, 244, 436},
  51.     dBoxProc,
  52.     visible,
  53.     goAway,
  54.     0x0,
  55.     3000,
  56.     "New Dialog"
  57. };
  58.  
  59. resource 'FREF' (128) {
  60.     'APPL',
  61.     0,
  62.     ""
  63. };
  64.  
  65. resource 'ICN#' (128, purgeable, preload) {
  66.     {    /* array: 2 elements */
  67.         /* [1] */
  68.         $"000F F400 007A FD00 01FF F780 05FF 7FE0"
  69.         $"07FF FFB0 0BFB FFD8 0FFF B578 1FDF F6FC"
  70.         $"1F7E E8BC 1E77 A074 3E37 807C 1C00 006C"
  71.         $"3FF0 3E3C 2E38 633C 3DE0 3C24 1E60 4C24"
  72.         $"1400 4004 1C00 0004 0C00 4008 0400 0038"
  73.         $"0404 6028 0001 8038 0200 0078 0008 1050"
  74.         $"0103 C060 0180 0140 0780 0040 7D20 0440"
  75.         $"4510 0820 4887 E050 4980 0088 7FFF FFF8",
  76.         /* [2] */
  77.         $"000F F400 007F FD00 01FF FF80 05FF FFE0"
  78.         $"07FF FFF0 0FFF FFF8 0FFF FFF8 1FFF FFFC"
  79.         $"1FFF FFFC 1FFF FFFC 3FFF FFFC 1FFF FFFC"
  80.         $"3FFF FFFC 3FFF FFFC 3FFF FFFC 1FFF FFFC"
  81.         $"1FFF FFFC 1FFF FFFC 0FFF FFF8 07FF FFF8"
  82.         $"07FF FFF8 03FF FFF8 03FF FFF8 01FF FFF0"
  83.         $"01FF FFE0 01FF FFC0 07FF FFC0 7FFF FFC0"
  84.         $"7FFF FFE0 7FFF FFF0 7FFF FFF8 7FFF FFF8"
  85.     }
  86. };
  87.  
  88. resource 'MENU' (1) {
  89.     1,
  90.     textMenuProc,
  91.     0x7FFFFFFD,
  92.     enabled,
  93.     apple,
  94.     {    /* array: 2 elements */
  95.         /* [1] */
  96.         "About Tear Menu...", noIcon, "", "", plain,
  97.         /* [2] */
  98.         "-", noIcon, "", "", plain
  99.     }
  100. };
  101.  
  102. resource 'MENU' (2) {
  103.     2,
  104.     textMenuProc,
  105.     0x7FFFFFF5,
  106.     enabled,
  107.     "File",
  108.     {    /* array: 1 elements */
  109.         /* [1] */
  110.         "Quit", noIcon, "Q", "", plain
  111.     }
  112. };
  113.  
  114. resource 'MENU' (3) {
  115.     3,
  116.     textMenuProc,
  117.     0x7FFFFFFD,
  118.     enabled,
  119.     "Edit",
  120.     {    /* array: 6 elements */
  121.         /* [1] */
  122.         "Undo", noIcon, "Z", "", plain,
  123.         /* [2] */
  124.         "-", noIcon, "", "", plain,
  125.         /* [3] */
  126.         "Cut", noIcon, "X", "", plain,
  127.         /* [4] */
  128.         "Copy", noIcon, "C", "", plain,
  129.         /* [5] */
  130.         "Paste", noIcon, "V", "", plain,
  131.         /* [6] */
  132.         "Clear", noIcon, "", "", plain
  133.     }
  134. };
  135.  
  136. resource 'WIND' (1) {
  137.     {100, 100, 292, 228},
  138.     documentProc,
  139.     invisible,
  140.     goAway,
  141.     0x0,
  142.     ""
  143. };
  144.  
  145. resource 'WIND' (2) {
  146.     {81, 143, 224, 327},
  147.     documentProc,
  148.     visible,
  149.     goAway,
  150.     0x0,
  151.     "Current Pattern"
  152. };
  153.  
  154. data 'TEAR' (0) {
  155.     $"1B54 6561 7220 4D65 6E75 2C20 6279 2044"        /* .Tear Menu, by D */
  156.     $"6172 7279 6C20 4C6F 7661 746F"                  /* arryl Lovato */
  157. };
  158.  
  159. resource 'PAT#' (100, purgeable) {
  160.     {    /* array PatArray: 96 elements */
  161.         /* [1] */
  162.         $"FFFF FFFF FFFF FFFF",
  163.         /* [2] */
  164.         $"DDFF 77FF DDFF 77FF",
  165.         /* [3] */
  166.         $"DD77 DD77 DD77 DD77",
  167.         /* [4] */
  168.         $"AA55 AA55 AA55 AA55",
  169.         /* [5] */
  170.         $"55FF 55FF 55FF 55FF",
  171.         /* [6] */
  172.         $"AAAA AAAA AAAA AAAA",
  173.         /* [7] */
  174.         $"EEDD BB77 EEDD BB77",
  175.         /* [8] */
  176.         $"8888 8888 8888 8888",
  177.         /* [9] */
  178.         $"B130 031B D8C0 0C8D",
  179.         /* [10] */
  180.         $"8010 0220 0108 4004",
  181.         /* [11] */
  182.         $"FF88 8888 FF88 8888",
  183.         /* [12] */
  184.         $"FF80 8080 FF08 0808",
  185.         /* [13] */
  186.         $"80",
  187.         /* [14] */
  188.         $"8040 2000 0204 08",
  189.         /* [15] */
  190.         $"8244 3944 8201 0101",
  191.         /* [16] */
  192.         $"F874 2247 8F17 2271",
  193.         /* [17] */
  194.         $"55A0 4040 550A 0404",
  195.         /* [18] */
  196.         $"2050 8888 8888 0502",
  197.         /* [19] */
  198.         $"BF00 BFBF B0B0 B0B0",
  199.         /* [20] */
  200.         $"",
  201.         /* [21] */
  202.         $"8000 0800 8000 08",
  203.         /* [22] */
  204.         $"8800 2200 8800 22",
  205.         /* [23] */
  206.         $"8822 8822 8822 8822",
  207.         /* [24] */
  208.         $"AA00 AA00 AA00 AA",
  209.         /* [25] */
  210.         $"FF00 FF00 FF00 FF",
  211.         /* [26] */
  212.         $"1122 4488 1122 4488",
  213.         /* [27] */
  214.         $"FF00 0000 FF",
  215.         /* [28] */
  216.         $"0102 0408 1020 4080",
  217.         /* [29] */
  218.         $"AA00 8000 8800 80",
  219.         /* [30] */
  220.         $"FF80 8080 8080 8080",
  221.         /* [31] */
  222.         $"081C 22C1 8001 0204",
  223.         /* [32] */
  224.         $"8814 2241 8800 AA",
  225.         /* [33] */
  226.         $"40A0 0000 040A",
  227.         /* [34] */
  228.         $"0384 4830 0C02 0101",
  229.         /* [35] */
  230.         $"8080 413E 0808 14E3",
  231.         /* [36] */
  232.         $"1020 54AA FF02 0408",
  233.         /* [37] */
  234.         $"8000 0000 08",
  235.         /* [38] */
  236.         $"80",
  237.         /* [39] */
  238.         $"0002 4000 0000 0080",
  239.         /* [40] */
  240.         $"0002 4000 0000 0880",
  241.         /* [41] */
  242.         $"8000 1000 8002 0020",
  243.         /* [42] */
  244.         $"8002 0010 8002 0010",
  245.         /* [43] */
  246.         $"0092 0000 9200 0092",
  247.         /* [44] */
  248.         $"0092 0008 8220 0092",
  249.         /* [45] */
  250.         $"0092 0028 8228 0092",
  251.         /* [46] */
  252.         $"1082 1082 1082 1082",
  253.         /* [47] */
  254.         $"2288 2288 2288 2288",
  255.         /* [48] */
  256.         $"2288 22A8 2288 2288",
  257.         /* [49] */
  258.         $"2288 22A8 2288 2A88",
  259.         /* [50] */
  260.         $"228A 22A8 2288 2A88",
  261.         /* [51] */
  262.         $"228A 22A8 2288 AA88",
  263.         /* [52] */
  264.         $"228A A2A8 2288 AA88",
  265.         /* [53] */
  266.         $"228A AAA8 2288 AAA8",
  267.         /* [54] */
  268.         $"228A AAA8 228A AAA8",
  269.         /* [55] */
  270.         $"AA11 AA45 AA11 AA54",
  271.         /* [56] */
  272.         $"AA51 AA45 AA11 AA55",
  273.         /* [57] */
  274.         $"AA55 AA45 AA55 AA54",
  275.         /* [58] */
  276.         $"AA55 AA45 AA55 AA55",
  277.         /* [59] */
  278.         $"AA55 AA55 AA55 AA55",
  279.         /* [60] */
  280.         $"AA55 BA55 AA55 AA55",
  281.         /* [61] */
  282.         $"AA55 BA55 AA55 AB55",
  283.         /* [62] */
  284.         $"AA55 BA55 AA55 AB75",
  285.         /* [63] */
  286.         $"EE55 BA55 EA55 AB55",
  287.         /* [64] */
  288.         $"EE55 BA55 EE55 AB55",
  289.         /* [65] */
  290.         $"EE55 BA55 EE55 BB55",
  291.         /* [66] */
  292.         $"EE55 BB55 EE55 BB55",
  293.         /* [67] */
  294.         $"EE55 BB55 EE5D BB55",
  295.         /* [68] */
  296.         $"EE55 BB55 EE5D FB55",
  297.         /* [69] */
  298.         $"EE55 FB55 EE5D FB55",
  299.         /* [70] */
  300.         $"EE55 FF55 EE55 FF55",
  301.         /* [71] */
  302.         $"FF55 FF55 FF55 FF55",
  303.         /* [72] */
  304.         $"FF55 FF5D FF55 FF55",
  305.         /* [73] */
  306.         $"FF55 FF5D FF55 FFD5",
  307.         /* [74] */
  308.         $"FF55 FFDD FF55 FFD5",
  309.         /* [75] */
  310.         $"FF55 FFDD FF55 FFDD",
  311.         /* [76] */
  312.         $"FF57 FF5D FF75 FFD5",
  313.         /* [77] */
  314.         $"FF57 FF7D FF7D FFD7",
  315.         /* [78] */
  316.         $"FFDD FFFF FFF7 FF7F",
  317.         /* [79] */
  318.         $"FFDF FFFF FFF7 FF7F",
  319.         /* [80] */
  320.         $"FFFF FFF7 FFFF FF7F",
  321.         /* [81] */
  322.         $"FFFF FFFF FFFF FF7F",
  323.         /* [82] */
  324.         $"FFFF FFFF FFFF FFFF",
  325.         /* [83] */
  326.         $"7FBF DFBF 6BDD BD7B",
  327.         /* [84] */
  328.         $"FF03 0509 1121 4181",
  329.         /* [85] */
  330.         $"FF83 4529 1129 4583",
  331.         /* [86] */
  332.         $"FF93 5539 FF39 5593",
  333.         /* [87] */
  334.         $"FE93 5539 EF39 5593",
  335.         /* [88] */
  336.         $"FE93 1139 EF39 1193",
  337.         /* [89] */
  338.         $"1010 1038 EF38 1010",
  339.         /* [90] */
  340.         $"1192 5438 EF38 5492",
  341.         /* [91] */
  342.         $"1192 5438 EF38 5492",
  343.         /* [92] */
  344.         $"55AA 55BA 6DBA 55AA",
  345.         /* [93] */
  346.         $"5FA9 51A3 458A 55AA",
  347.         /* [94] */
  348.         $"55EA 7DA6 65BE 57AA",
  349.         /* [95] */
  350.         $"55AA 4182 4182 55AA",
  351.         /* [96] */
  352.         $"46A6 FFFF 4686 57AE"
  353.     }
  354.     /****** Extra bytes follow... ******/
  355.     /* $"0000 0034 0001 1400"                            /* ...4.... */
  356. };
  357.  
  358.